home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue30 / vssdigi / VSSDIGI.ZIP / Examples / misc / uraster.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-12-19  |  1.6 KB  |  76 lines
  1. //******************************************************************************
  2. //                        VARIAN LED STUDIO v2.00
  3. //               (c) VARIAN SOFTWARE SERVICES NL 1996-1997
  4. //                          ALL RIGHTS RESERVED
  5. //******************************************************************************
  6.  
  7. unit uraster;
  8.  
  9. interface
  10.  
  11. uses
  12.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  13.   vrraster, ExtCtrls, StdCtrls;
  14.  
  15. type
  16.   TForm1 = class(TForm)
  17.     Button1: TButton;
  18.     Button2: TButton;
  19.     Button3: TButton;
  20.     Timer1: TTimer;
  21.     Panel1: TPanel;
  22.     VrRaster1: TVrRaster;
  23.     procedure Button1Click(Sender: TObject);
  24.     procedure Button2Click(Sender: TObject);
  25.     procedure Button3Click(Sender: TObject);
  26.     procedure Timer1Timer(Sender: TObject);
  27.   private
  28.     { Private declarations }
  29.   public
  30.     { Public declarations }
  31.   end;
  32.  
  33. var
  34.   Form1: TForm1;
  35.  
  36. implementation
  37.  
  38. {$R *.DFM}
  39.  
  40.  
  41. procedure TForm1.Button1Click(Sender: TObject);
  42. begin
  43.   Timer1.Enabled := true;
  44. end;
  45.  
  46. procedure TForm1.Button2Click(Sender: TObject);
  47. var
  48.   I: Integer;
  49. begin
  50.   Timer1.Enabled := false;
  51.   with VrRaster1 do
  52.     for I := 0 to Pred(Count) do
  53.       Items[I].Active := false;
  54. end;
  55.  
  56. procedure TForm1.Button3Click(Sender: TObject);
  57. begin
  58.   VrRaster1.MultiSelect := not VrRaster1.MultiSelect;
  59. end;
  60.  
  61. procedure TForm1.Timer1Timer(Sender: TObject);
  62. var
  63.   I: Integer;
  64. begin
  65.   with VrRaster1 do
  66.   begin
  67.     I := Random(Count);
  68.     if MultiSelect then
  69.       Items[I].Active := not Items[I].Active
  70.     else
  71.       Items[I].Active := true;
  72.   end;
  73. end;
  74.  
  75. end.
  76.